From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 19 Sep 2003 14:28:46 +0000 (+0000)
Subject: (finder-mode-hook): New variable.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~25521
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=ca177e465a787f8c5c500a82dd282a41d4c76303;p=emacs.git

(finder-mode-hook): New variable.
(finder-mode): Run hook finder-mode-hook
---

diff --git a/lisp/finder.el b/lisp/finder.el
index c9e51970f49..2958f36c3d9 100644
--- a/lisp/finder.el
+++ b/lisp/finder.el
@@ -44,6 +44,9 @@
 ;; during byte-compilation (at which point it might be missing).
 (load "finder-inf" t t)
 
+(defvar finder-mode-hook nil
+  "*Hook run when function `finder-mode' is called.")
+
 ;; Local variable in finder buffer.
 (defvar finder-headmark)
 
@@ -337,7 +340,8 @@ FILE should be in a form suitable for passing to `locate-library'."
   (setq mode-name "Finder")
   (setq major-mode 'finder-mode)
   (make-local-variable 'finder-headmark)
-  (setq finder-headmark nil))
+  (setq finder-headmark nil)
+  (run-hooks 'finder-mode-hook))
 
 (defun finder-summary ()
   "Summarize basic Finder commands."